<script>on openFieldset the textArrows to trueend openFieldon closeFieldset the textArrows to falseend closeFieldon exitFieldset the textArrows to falseend exitField</script>
</part>
<part>
<id>1</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>111</left>
<top>54</top>
<right>185</right>
<bottom>74</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>kHz</name>
<script>on exitFieldif fld "KHz" is not "Empty" thenset numberFormat to "####0.00"add 0 to field "KHz"end ifend exitField</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>111</left>
<top>22</top>
<right>145</right>
<bottom>41</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Channel #</name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>454</left>
<top>295</top>
<right>504</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5436</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpput bg field "kHz" && "kHz" & return & bg field "Station" &¬return & bg field "Remarks" into bg field"Channel Data" of cd 1visual iris closego to card "Main Control Panel"end mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>111</left>
<top>86</top>
<right>154</right>
<bottom>104</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Mode</name>
<script>on mouseDownget the rect of meput item 1 of it + item 1 of loc of cd window +42 into horizput item 4 of it + item 2 of loc of cd window -17 into vertput "AM,USB,LSB,CW,RTTY,FAX,FM,ECSS-USB,ECSS-LSB" into myChoicesget PopUpMenu (myChoices,1,vert,horiz)if it is 0 thenput "AM" into meelseput item it of myChoices into meend ifend mouseDown</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>111</left>
<top>118</top>
<right>162</right>
<bottom>136</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Bandwidth</name>
<script>on mouseDownget the rect of meput item 1 of it + item 1 of loc of cd window +50 into horizput item 4 of it + item 2 of loc of cd window -17 into vertput "WIDE,INTER,NARR,AUX" into myChoicesget PopUpMenu (myChoices,1,vert,horiz)if it is 0 thenput "WIDE" into meelseput item it of myChoices into meend ifend mouseDown</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>112</left>
<top>150</top>
<right>164</right>
<bottom>168</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>AGC</name>
<script>on mouseDownget the rect of meput item 1 of it + item 1 of loc of cd window +51 into horizput item 4 of it + item 2 of loc of cd window +15 into vertput "OFF,SLOW,FAST" into myChoicesget PopUpMenu (myChoices,3,vert,horiz)if it is 0 thenput "FAST" into meelseput item it of myChoices into meend ifend mouseDown</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>112</left>
<top>182</top>
<right>165</right>
<bottom>202</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Attenuator</name>
<script>on mouseDownget the rect of meput item 1 of it + item 1 of loc of cd window +52 into horizput item 4 of it + item 2 of loc of cd window -19 into vertput "0 dB,20 dB" into myChoicesget PopUpMenu (myChoices,1,vert,horiz)if it is 0 thenput "-0 dB" into meelseput "-" & item it of myChoices into meend ifend mouseDown</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>301</left>
<top>298</top>
<right>408</right>
<bottom>319</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Clear Channel</name>
<script>on mouseUpglobal Talkif Talk thenspeak "Clear memory channel" & bg fld "channel #"end ifanswer "Clear this memory channel?" with "Ok" or "Cancel"if it is "Ok" thenput empty into bg field "khz"put empty into bg field "Mode"put empty into bg field "Bandwidth"put empty into bg field "AGC"put empty into bg field "Attenuator"put empty into bg field "Remarks"put "Empty" into bg field "Station"put "Empty" into bg field "Country"end ifend mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>171</left>
<top>304</top>
<right>215</right>
<bottom>326</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>9301</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prior Card</name>
<script>on mouseUpget the short name of this cardif it is "Channel000" thenbeepelsego to previous cardend ifend mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>225</left>
<top>305</top>
<right>260</right>
<bottom>325</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>27009</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next card</name>
<script>on mouseUpget the short name of this cardif it is "Channel199" thenbeepelsego to next cardend ifend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>142</left>
<top>300</top>
<right>183</right>
<bottom>330</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>30557</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpgo to card "Channel000"end mouseUp</script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>256</left>
<top>302</top>
<right>297</right>
<bottom>329</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26865</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpgo to card "Channel199"end mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>38</left>
<top>292</top>
<right>101</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5028</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>MEM to VFO</name>
<script>-- This button sets a 525 memory channel with the parameters on this card-- The assumption is that the control panel display on Main card is the-- same as the data on the card (which it will be if the user hasn't-- changed it with the Edit or Set function)on mouseUpset icon of me to "receiverControl ON"play clickset icon of me to "receiverControl OFF"global Talk,channelDataKHz,channelDataStation,channelDataRemarksif bg field "kHz" is "0.00" thenif Talk then speak "There dazint seem to be anything to download!"answer "There doesn't seem to be anything to download!" with OKexit mouseUpend ifput bg field "Channel #" into channelTempput bg field "kHz" into channelDataKHzput bg field "station" into channelDataStationput bg field "remarks" into channelDataRemarks-- make this the current memory channel on 525sendSPort ("C" & bg field "Channel #")-- download all the parameterslock screenput bg fld "kHz" into dialTempmultiply dialTemp by 1set numberFormat to "#####.00"put dialTemp into bg fld "Dial" of card "Main Control Panel"put bg fld "mode" into bg fld "mode" of card "Main Control Panel"put bg fld "attenuator" into bg fld "att" of card "Main Control Panel"put bg fld "agc" into bg fld "agc" of card "Main Control Panel"put bg fld "bandwidth" into bg fld "filter" of card "Main Control Panel"put "MR" into bg field "Mem Recall" of card "Main Control Panel"sendFreqdoModedoBWdoATTdoAGCunlock screenvisual iris closego cd 1set the name of card button id 32 to channelTempput channelTemp into bg field "Channel"put channelDataKHz && "kHz" & return & channelDataStation ¬& return & channelDataRemarks into bg field"Channel Data"multiply channelTemp by 1.825add 95 to channelTempset numberFormat to "0"divide channelTemp by 1put channelTemp & ",276" into theLocset the loc of cd btn id 32 to (theLoc)-- set the previously selected channel on the 525 with current paramssendSPort "E1"if Talk then speak "memory chanul " & bg fld "Channel #" & "downloaded"end mouseUp</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>112</left>
<top>214</top>
<right>267</right>
<bottom>233</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Station</name>
<script>on mouseDownshow bg field "Find List 1"set the scroll of bg fld "Find List 1" to 0end mouseDownon fieldChosenglobal stationList,countryListselect the clickLineput word 2 of the clickLine into theStnhide bg field "Find List 1"if the clickText is empty thenset the lockText of me to falseselect text of meelseput item theStn of stationList into meput item theStn of countryList into bg fld "Country"end ifend fieldChosenon closeFieldset the locktext of me to trueend closeFieldon exitFieldset the locktext of me to trueend exitField</script>
</part>
<part>
<id>20</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>310</left>
<top>0</top>
<right>508</right>
<bottom>290</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Find List 1</name>
<script>on mouseUpsend fieldChosen to bg fld "Station"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>20</id>
<text>BBCDeutche WelleDWHCJBKOL IsraelKUSWNHKR. AustraliaR. AustriaR. BeijingR. BrasR. BudapestR. DenmarkR. Habana CubaR. KievR. MoscowR. Nacional de ChileR. NederlandR. PragueR. PyongyangR. Romania Int'lR. SwitzerlandR. TanpaR. TiranaR. VietnamR. VilniusRCIRNESpanish Foreign RadioSwiss Radio Int'lUAE RadioUnknownV. Free ChinaV. GreeceVOAYakut Radio</text>
</content>
<name>Channel Data</name>
<script>on openCardif fld "Station" is "Empty" thenput "AM" into fld "Mode"put "WIDE" into fld "Bandwidth"put "SLOW" into fld "AGC"put "-0 dB" into fld "Attenuator"put empty into fld "Country"select text of field "Khz"end ifend openCardon closeCardif fld "Station" is "Empty" thenput empty into fld "Mode"put empty into fld "Bandwidth"put empty into fld "AGC"put empty into fld "Attenuator"put empty into fld "Country"set the locktext of fld "Station" to trueend ifif fld "KHz" is not "Empty" thenset numberFormat to "####0.00"add 0 to field "KHz"end ifend closeCard</script>
